home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 July / 1985-07.d64 / power basic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  406b  |  12 lines
  1. 1 sys65517:ifpeek(781)=40thenmt$="":goto5
  2. 2 mt$=""
  3. 5 printmt$"[147]"
  4. 10 close15:open15,8,15:print#15,"i0:":close5:open5,8,5,"#":b$=""
  5. 20 print#15,"u1:5,0,18,0":print#15,"b-p:5,144"
  6. 30 forj=1to16:get#5,a$:a$=chr$(asc(a$+chr$(0))):b$=b$+a$:next
  7. 40 print:print"disk name: ";b$
  8. 50 input" new name";n$:iflen(n$)>16thenprint"maximum length is 16":goto40
  9. 60 iflen(n$)<16thenn$=n$+chr$(160):goto60
  10. 70 print#15,"b-p:5,144":print#5,n$;:print#15,"u2:5,0,18,0":close5
  11. 80 input#15,er,er$:print"disk status:"er;er$:print#15,"i0":close15:end
  12.